system("perl perl_presentabsent.pl ./results/1_present_absent.txt >result_present_absent ");
for($i=2;$i<61;$i++)
{
    
	$sys = "perl perl_presentabsent.pl ./results/$i"."_present_absent.txt >>result_present_absent ";
	system($sys);
}
system("perl perl_barcode.pl ./results/1_barcode.txt >result_barcode ");
for($i=2;$i<61;$i++)
{

        $sys = "perl perl_barcode.pl ./results/$i"."_barcode.txt >>result_barcode ";
        system($sys);
}
system("perl perl_frma.pl ./results/1_frma.txt >result_frma ");
for($i=2;$i<61;$i++)
{

        $sys = "perl perl_frma.pl ./results/$i"."_frma.txt >>result_frma ";
        system($sys);
}


